Komputer for Alle 2004 E…tra 100 Bedste Programmer/K-CD_2004_Ekstra_100_Gratis_Programmer.iso/Windows/X-Setup/xqdcXSP-Setup-EN.exe/{app}/plugins/XQ Control Panel Hide OEM.xpl

XSetup plugin | 2003-11-28 | 5.3 KB | 180 lines

"FILE"="Xteq Systems X-Setup Plugin 6.0"
"TYPE"="9"
"COUNT"="5"
"UIPATH 1"="Appearance\Control Panel\Visible Icons"
"NAME"="Visible OEM Icons"
"VERSION"="1.01"
"LANGUAGE"="VBScript"
"DESCRIPTION 1"="This plug-in can be used to hide or show the different applets inside Start -> Settings -> Control Panel."
"AUTHOR"="Xteq Systems"
"CONTACTURL"="http://www.xteq.com"
"COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
"COMMENT 1"=" "
"COMMENT 2"="Special thanks to Maxwell ([e-mail]) for his brilliant tips and CptSiskoX ([e-mail]) for his help."
"COMMENT 3"="See also: MS KB Q207750"
"COMMENT 3"="Thanks also to Kathy for her help with the Toshiba items. See also: MS KB Q207750."
"COMMENT 1"="Special thanks to Maxwell ([e-mail]) for his brilliant tips and CptSiskoX ([e-mail]) for his help."
"COMMENT 2"="Thanks also to [e-mail] [http://users.aol.com/ojatex/laptop.htm]."
"COMMENT 3"="Thanks to chris friday [[e-mail]] for the EppieDesktop broken link notice."
"COMMENT 4"="More information: MS KB Q207750"
"COMMENT 2"="Thanks to Pierre Szwarc for the info about these Control Panel applets."
"COMMENT 3"="Thanks to TeX HeX for his creativity."
"COMMENT 4"="Thanks to AXCEL216 for his info about TweakUI.  See: http://members.aol.com/axcel216/98-3.htm#TWK98"
"COMMENT 2"="Thanks to CptSiskoX for the QuickTime Control Panel icon plug-ins and the Mijenix WinCustomizer one. :)"


'******************************************************************
'***                COPY !!!! ONLY EDIT LINES BELOW!!!!        ****
'******************************************************************

'******************************************************************
'*** Keep an eye on the order (must be the same as "TEXT x") ! ****
'******************************************************************
sPath="HKCU\Control Panel\Don't Load\"
sFile="CONTROL.INI"
sFileSec="Don't Load"

dim iCurMax
Dim aryItem()
Dim aryDesc()

Dim sText1
Dim sText2

Dim bIsOldWin


SUB Plugin_Initialize
 sText1="Show '"
 sText2="' applet"

 If GetWinVer=1 or GetWinVer=3 or GetWinVer=5 then
    bIsOldWin=true
 else
    bIsOldWin=false
 end if


 iCurMax=0
 ReDim aryItem(35)
 ReDim aryDesc(35)



 Call AddEntry("3COM Pace Config", "pacecfg.cpl")
 Call AddEntry("X-Setup", "xqxsetup.cpl")
 Call AddEntry("X-Setup Pro", "dcXSPApplet.cpl")
 Call AddEntry("RealPlayer Preferences", "prefscpl.cpl")
 Call AddEntry("Office FindFast Control", "findfast.cpl")
 Call AddEntry("Novell NetWare", "nwc.cpl")
 Call AddEntry("Colorific","ColorificPanel.cpl")
 Call AddEntry("3Deep","3Deep.cpl")
 Call AddEntry("Toshiba HW Config","HWSetup.cpl")
 Call AddEntry("Toshiba Power Saver","PWRSAVE.cpl")
 Call AddEntry("Toshiba Services","Toshcfg.cpl")
 Call AddEntry("EppieDesktop","epshell.cpl")
 Call AddEntry("Rei's More Extensions","moreshex.cpl")
 Call AddEntry("TweakAll","TweakAllCPL.Dll")
 Call AddEntry("Startup","Startup.cpl")
 Call AddEntry("Window Blinds","wbcpl.cpl")
 Call AddEntry("BDE Administrator","bdeadmin.cpl")
 Call AddEntry("Matrox Display Properties","mgapanel.cpl")
 Call AddEntry("Corel Versions Manager","vesrcpl.cpl")
 Call AddEntry("Symantec Live Update","s32lucp1.cpl")
 Call AddEntry("TweakUI","tweakui.cpl")
 Call AddEntry("QuickTime [16-bit, 2.x]","qtw16.cpl")
 Call AddEntry("QuickTime [32-bit, 2.x]","qtw32.cpl")
 Call AddEntry("QuickTime","QuickTime.cpl")
 Call AddEntry("WinCustomizer", "mxctlpnl.cpl")
 Call AddEntry("SiSoftware Sandra", "sancpl.cpl")
 Call AddEntry("Bluetooth (Widcomm)", "btcpl.cpl")
 Call AddEntry("SonyEricsson Mobile Monitor", "ecsepm.cpl")
 Call AddEntry("TrendMicro PC-cillin", "pccset.cpl")


 for i=0 to iCurMax-1
     s=aryDesc(i)
     Call SetUIElement(i+1,sText1 & s & sText2)

     Call ReadIt(i+1,aryItem(i))
 next
End Sub

Sub AddEntry(Desc,Value)
 aryItem(iCurMax)=Value
 aryDesc(iCurMax)=Desc

 iCurMax=iCurMax+1
End Sub


Sub ReadIt(ITM,VAL)
  If bIsOldWin then
     'old (win32 1/2) INI style...

     s=IniReadValue(sFile,sFileSec,VAL)
     if len(s)>0 then
        Call SetUIElementEx(ITM,false)
     else
        Call SetUIElementEx(ITM,true)
     end if

  else

     s=RegReadValue(sPath & VAL)
     if IsEmpty(s)=true then
        Call SetUIElementEx(ITM,true)
     else
        Call SetUIElementEx(ITM,false)
     end if
  end if

End Sub

'Called when the Plugin should validate the Data the user has entered
SUB Plugin_CheckData(ElementIndex)
END SUB

'Called when the Plugin should apply the changes
SUB Plugin_Apply(ElementIndex,ElementSubIndex)
 for i=0 to iCurMax-1
     Call WriteIt(i+1,aryItem(i))
 next

' Call IndicateSettingChange()
END SUB

Sub WriteIt(ITM,VAL)
 b=GetUIElementEx(ITM)
 if b=true then
    'Display it

    If bIsOldWin then
       'win32 1/2
       Call IniWriteValue(sFile,sFileSec,VAL,"")
    else
       if RegValueExists(sPath & VAL)=true then
          Call RegDeleteValue(sPath & VAL)
       end if
    end if

 else
   'Hide it

   If GetWinVer=1 or GetWinVer=3 or GetWinVer=5 then
      'win32 1/2
      Call IniWriteValue(sFile,sFileSec,VAL,"no")
   else
      Call RegWriteValue(sPath & VAL,"1",1)
   end if

 end if
End Sub


'Called when the Plugin is about to be removed from memory
SUB Plugin_Terminate
END SUB